	
	
		* Table A14
		* Heterogeneity Analysis

	
		clear all
		set more off
	
		use "C:\Users\EAsker\Desktop\ABR\data\ABR_final_data"
		
		drop if qrdinc80_b==2|qrdinc80_b==3
		
		****Baseline controls
		replace fam_inc=. if fam_inc==99|fam_inc==97|fam_inc==0
		gen ln_fam_inc=log(fam_inc)
		
		gen miss_mot_hs=1 if mot_hs==.
		replace miss_mot_hs=0 if mot_hs~=.
		replace mot_hs=0 if mot_hs==.
	
		gen miss_fat_hs=1 if fat_hs==.
		replace miss_fat_hs=0 if fat_hs~=.
		replace fat_hs=0 if fat_hs==.
	   
		gen miss_fam_inc=1 if ln_fam_inc==.
		replace miss_fam_inc=0 if ln_fam_inc~=.
		replace ln_fam_inc=0 if ln_fam_inc==.
	
		gen miss_female=1 if female==.
		replace miss_female=0 if female~=.
		replace female=0 if female==.
	    sort  survey wave sch_id
		
		gen miss_not_white=1 if not_white==.
		replace miss_not_white=0 if not_white~=.
		replace not_white=0 if not_white==.
		
		egen m_weight=mean(weight), by(survey wave sch_id) 
	    replace weight=m_weight if (weight==.|weight==0)&m_weight~=0	
		
		gen log_income=log(income)
		
		gen income_0=income
		replace income_0=. if income_0==0
	****************************************************************************
	gen inter_trend1=qr1_sfr_exp_trend_BHJ*female
	gen inter_jump1=qr1_sfr_BHJ*female
	
	gen inter_trend2=qr1_sfr_exp_trend_BHJ*not_white
	gen inter_jump2=qr1_sfr_BHJ*not_white
	
	
		local controls_civic " miss_mot_hs miss_fat_hs miss_fam_inc miss_not_white miss_female mot_hs fat_hs ln_fam_inc not_white female "
		
			******************************************
            ************** Gender  *******************
			******************************************	
			
		foreach y of varlist high_school post_scndry vltnry_prtcptn  ///
		vlntry_hours register_vote {
	   	
		reghdfe `y' qr1_sfr_exp_trend_BHJ  qr1_sfr_BHJ inter_trend1 ///
		inter_jump1  `controls_civic' if wave==2 , ///
		absorb(statexsurvey_quartile quartilexstate quartilexsurvey) ///
		cluster (quartilexstate) 
		
		outreg2 using Table_A14.xls, append ctitle(`y'_gender) bdec(4) nonotes ///
		nocons keep(qr1_sfr_exp_trend_BHJ qr1_sfr_BHJ inter_trend1 inter_jump1 ///
		mot_hs fat_hs ln_fam_inc not_white female) ///
		addtext(State by Survey FE, YES, Quartile by State FE, YES, Quartile by Survey FE, YES)
		
	}
	
			******************************************
            ************** Race  *********************
			******************************************	
	
			foreach y of varlist high_school post_scndry vltnry_prtcptn ///
			vlntry_hours register_vote  {
	   	
		reghdfe `y' qr1_sfr_exp_trend_BHJ  qr1_sfr_BHJ inter_trend2 inter_jump2 ///
		`controls_civic' if wave==2 , absorb ( statexsurvey_quartile ///
		quartilexstate quartilexsurvey) cluster (quartilexstate) 
		
		outreg2 using Table_A14.xls, append ctitle(`y'_race) bdec(4) nonotes ///
		nocons keep(qr1_sfr_exp_trend_BHJ qr1_sfr_BHJ inter_trend2 ///
		inter_jump2 mot_hs fat_hs ln_fam_inc not_white female) ///
		addtext( State by Survey FE, YES, Quartile by State FE, YES, Quartile by Survey FE, YES)
		
	}
	
	